home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bt / seqfile.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-06  |  1.0 KB  |  24 lines
  1. 10 ' seqfile.bas   sample sequential file  
  2. 20 OPEN "test.dat" FOR OUTPUT AS #1        
  3. 30 FOR I = 1 TO 3                          
  4. 40 PRINT "Entry";I                         
  5. 50 INPUT "Name ";NAM$                      
  6. 60 INPUT "City";CITY$                      
  7. 70 INPUT "Age";AGE                         
  8. 80 INPUT "Phone";PHONE$                    
  9. 90 WRITE #1, NAM$                          
  10. 100 WRITE #1, CITY$                        
  11. 110 WRITE #1, AGE                          
  12. 120 WRITE #1, PHONE$                       
  13. 130 NEXT                                   
  14. 140 CLS                                    
  15. 150 CLOSE #1                               
  16. 160 OPEN "test.dat" FOR INPUT AS #1        
  17. 170 FOR I = 1 TO 3                         
  18. 180 INPUT #1,NAM$                          
  19. 190 INPUT #1,CITY$                         
  20. 200 INPUT #1,AGE                           
  21. 210 INPUT #1,PHONE$                        
  22. 220 PRINT I;NAM$;" ";CITY$;AGE;PHONE$      
  23. 230 NEXT                                   
  24.